parallel slope model in R